home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / RESULTS.Dxr / 00010.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  418 b   |  23 lines
  1. on mouseDown
  2.   global gQuitDown
  3.   set gQuitDown to 1
  4.   set the memberNum of sprite 8 to 17
  5.   puppetSound(3, "vol 1")
  6.   updateStage()
  7. end
  8.  
  9. on mouseUp
  10.   global gQuitDown
  11.   if gQuitDown then
  12.     set the memberNum of sprite 8 to 18
  13.     set gQuitDown to 0
  14.     updateStage()
  15.     puppetSprite(8, 0)
  16.     puppetSprite(9, 0)
  17.     puppetSound(3, "vol 1")
  18.     repeat while soundBusy(3)
  19.     end repeat
  20.     go("finish")
  21.   end if
  22. end
  23.